3 REM COLOR BLOCKS
5 G=13*4096:POKE G+33,1
7 S$=""
10 PRINT "[147]":CD$="[144][159][156][158][143][149][150][151][152][153][154][155]"
13 DATA "[144]BLACK","[146][144]WHITE","RED"
14 DATA "[159]CYAN","[156]PURPLE","GREEN"
15 DATA "BLUE","[158]YELLOW","[143]ORANGE"
16 DATA "[149]BROWN","[150]PINK","[151]GRAY 1"
17 DATA "[152]GRAY 2","[153]LT GREEN","[154]LT BLUE"
18 DATA "[155]GRAY 3"
20 FOR X=0 TO 3
25 FOR Y=1 TO 5
30 FOR Z=1 TO 4
40 PRINT " "MID$(CD$,X*4+Z,1)"        [146] ";
50 NEXT Z
60 NEXT Y
65 IF X<>3 THEN PRINT
70 NEXT X
75 PRINT "[144]"SPC(11)"[207][163][163][163][163][163][163][208]"SPC(32)"[165]      [167]"
76 PRINT SPC(11)"[165]      [167]"SPC(32)"[165]      [167]"
79 PRINTSPC(11)"[204][164][164][164][164][164][164][186]"
80 PRINT"";:FOR X=1 TO 4
90 READ A$,B$,C$,D$
100 PRINT "";:IF X=1 THEN PRINT "[145]";
105 PRINT ""A$,""B$,""C$,""D$
110 NEXT X
120 GOTO 120